home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / amiconnect / amitcp / bin / all / emailmch next >
Text File  |  1996-02-26  |  877b  |  33 lines
  1. /* Rexx
  2. ** $ver: E-Mail Mch V1
  3. */
  4. sequence = "999"
  5. if open(seq,"uulib:seq","R") then
  6. do
  7.   sequence = readln(seq)
  8.   call close(seq)
  9. end
  10. filename = "t:mailtmp-"||sequence
  11. call open(edfile,filename,"W")
  12. call seek(edfile,0,"B")
  13. call writeln(edfile,"To: mchunt@mail.zynet.co.uk")
  14. call writeln(edfile,"Subject: AC-")
  15. call writeln(edfile,"")
  16. call writeln(edfile,"Hi Martin,")
  17. call close(edfile)
  18. address command "ed "||filename
  19. cmd = "list "||filename||" lformat %l > t:filelength"
  20. address command cmd
  21. call open(lng,"t:filelength","R")
  22. length = readln(lng)
  23. call close(lng)
  24. if length = 53 then exit
  25. cmd = "protect "||filename||" rweds"
  26. address command cmd
  27. cmd = "join "||filename||" uulib:$user.signature to t:joined"
  28. address command cmd
  29. cmd = "sendmail <t:joined -f $user"
  30. address command cmd
  31. address command "delete t:joined quiet"
  32. /* address command "delete "||filename||" quiet" */
  33.